open(BUFF,"markers.txt");
open(BUFF1,"geno_male.bgl");
while($line = <BUFF>)
{
	chomp $line;
	@array = split(" ",$line);
	$hash1{$array[0]} = $array[2];
	$hash2{$array[0]} = $array[3];
}
while($line = <BUFF1>)
{
	chomp $line;
	@array = split(" ",$line);
        shift(@array);
	$temp =shift(@array);
	
	$line1 = join(" ",@array);
	if($line1 =~ m/$hash1{$temp}/ || $line1 =~ m/$hash2{$temp}/)
	{
	}
	else
	{
		print $temp."\n";
	}	
}
